home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / scsh / fdports.h < prev    next >
Text File  |  1995-10-13  |  931b  |  17 lines
  1. /* Macros to access parts of Scheme ports from C. */
  2. /* Copyright (c) 1995 by Olin Shivers. */
  3.  
  4. #define PortData_Fd(port_data)     (1+(scheme_value*)StobData(port_data))
  5. #define PortData_Closed(port_data) (2+(scheme_value*)StobData(port_data))
  6. #define PortData_Peek(port_data)   (3+(scheme_value*)StobData(port_data))
  7. #define PortData_Rev(port_data)    (4+(scheme_value*)StobData(port_data))
  8. #define PortData_OldRev(port_data) (5+(scheme_value*)StobData(port_data))
  9. /* #define PortData_Mode(port_data)   (6+(scheme_value*)StobData(port_data)) */
  10.  
  11. #define Port_PortData(port) (1+(scheme_value*)StobData(port))
  12. #define PortFd(port)     (PortData_Fd(*Port_PortData(port)))
  13. #define PortClosed(port) (PortData_Closed(*Port_PortData(port)))
  14. #define PortRev(port)    (PortData_Rev(*Port_PortData(port)))
  15. #define PortOldRev(port) (PortData_OldRev(*Port_PortData(port)))
  16. /* #define PortMode(port)   (PortData_Mode(*Port_PortData(port))) */
  17.